function writeIASprices(model, data_path, startdate, enddate)
%write IAS price file for WCM custom benchmarks

model_names = {'MSCI World Equity Index','80% MSCI World Eq/20% BarCap US Bnd', ...
  '60% MSCI World Eq/40% BarCap US Bnd', '50% MSCI World Eq/50% BarCap US Bnd', ...
  '40% MSCI World Eq/60% BarCap US Bnd','20% MSCI World Eq/80% BarCap US Bnd', ...
  'BarCap US Bond Index'};
symbols = {'$WCM100','$WCM080','$WCM060','$WCM050','$WCM040','$WCM020','$WCM000'};
delim = ',';

fid = fopen([data_path 'PriceIAS.csv'], 'w');  %previous contents discarded
format = '%s,%0.2f,%s,%s,%s\n';

for j = 1:size(model.data,2)
    for i = 1:size(model.data,1)
      if model.dates(i) >= startdate && model.dates(i) <= enddate
        dtstr = datestr(TSdatenum(model.dates(i)),'mm/dd/yyyy');
        fprintf(fid, format, symbols{j},model.data(i,j),dtstr,symbols{j},model_names{j});
      end
    end
 end
fclose(fid);

end
